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Unclassified 


FOREWORD 


This  is  the  eighth  report  in  the  Data  Reduction  Program  Documentation 
series.  It  is  dated  according  to  the  date  of  completion  of  the  documentation.  No 
implicat4  is  made  that  this  program  will  not  subsequently  be  modified,  amended, 
or  superseded;  on  the  contrary,  the  history  of  radar  data  processing  is  one  of  con¬ 
tinuous  evolution  of  techniques,  and  it  is  unrealistic  to  assume  that  steady -state  has 
been  reached.  The  PA -229  series  is  being  published  for  the  convenience  of  interested 
parties,  and  Lincoln  assumes  no  responsibility  for  the  correctness  of  the  information 
presented,  nor  for  its  currency. 

The  preparation  of  reports  in  this  series  is  under  the  Editorship  of  Charles  R. 
Berndtson  of  Lincoln,  and  of  D.  Nessman  and  R.  French  of  Philco-Ford  Corporation. 
Inquiries,  suggestions,  corrections,  criticisms,  and  requests  for  additional  copies 
should  be  directed  to  C.  R.  Berndtson. 

The  principal  contributor  to  this  report  was  G.  L.  Shapiro  (Philco-Ford). 

Due  to  the  intricate,  evolutionary  manner  in  which  the  programs  came  into  being,  the 
editors  regret  that  it  is  in  general  impossible  to  give  due  credit  to  all  --  mathemati¬ 
cians  or  radar  analysts  or  programmers  --  who  contributed  to  the  definition  and 
writing  c  f  the  programs. 
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COMMON  SYMBOLS  AND  ABBREVIATIONS 


(The  units  given  for  certain  quantities  are  the  units  commonly  used  for  those 
quantities,  unless  otherwise  noted. ) 


ADT 

ALCOR 

ALTAIR 

Alt 

APS 

ARS 

Avg 

Az 


ALCOR  Data  Tape 

ARPA-Lincoln  C-band  Observables  Radar 

ARPA  Long-Range  Tracking  and  Instrumentation  Radar 

Altitude  (km) 

Average  Pulse  Shape 
ALTAIR  Recording  System 
Average,  Averaging 
Azimuth  (deg) 


c  Speed  of  Light 

CADJ  Adjusted  Calibration  Constant  (db) 

C-band  ALCOR  frequency,  5664  MHz  (NB)  and  5667  MHz  (WB) 


DBLT 


Wide  Band  Pulse  Doublet 


El 

EOF 

GMT 

h 

Hz 


Elevation  (deg) 

End  of  File 

Greenwich  Mean  Time 

Hours 

Hertz 


IF  Intermediate  Frequency 

in  Inches 


LC  Left  Circular  Polarization 

Isb  Least  Significant  Bit 


min 


Minutes 


NB 

NRTPOD 

POD 

Phase 

PRF 

PRI 

pps 

pts 


Narrow  Band 

Non-reai  Time  Precision  Orbit  Determination  Program 

Project  PRESS  Operation  and  Data  Summary  Report 
Presented  in  deg 

Pulse  Repetition  Frequency  (pps) 

Pulse  Repetition  Interval  (s) 

Pulses  per  second 
Points 


v 


R 

R 

rad 

RC 

RCS 

RF 


Range  (km) 

Range  Rate  (km/s) 

Radians 

Right  Circular  Polarization 
Radar  Cross  Section  (dbsm) 
Radio  Frequency 


s  Seconds 

SD  Standard  Deviation  of  Wake  Velocity 

w 

SDBLT  Wide  Band  Slaved  Pulse  Doublet 

S/N  Signal -to -joise  Ratio 

T  Time 

TAL  Time  After  Launch  (s) 

UHF  ALTAIR  Frequency;  415  MHz 


V 


V 

w 

VHF 

WB 

WBS 

WTR 


Velocity 

Doppler  Velocity 

Mean  Wake  Velocity 

ALTAIR  Frequency;  155.5  MHz 

Wide  Band 

Wide  Band  Slaved 

Western  Test  Range 


0  Total  Off-axis  Angle  (deg) 

A  Wavelength 

*  Denotes  Multiplication 
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FLOW  DIAGRAM  SYMBOLS 


PROCESS,  ANNOTATION 


DECISION 


TERMINATOR 


SUBROUTINE:  where  NAME  is  the  entry 
call  Into  the  subroutine 


CONNECTOR:  where  P  specifies  a  page  in  the 

flow  dlaj'am,  and  L  designates 
a  statement  number  in  the  program 
listing  or  a  reference  point  in  the 
flow  diagram 

CONNECTOR:  where  X  Implies  a  continuation 
ot  the  diagram  to  the  next  page 


INPUT/OUTPUT  OPERATION 


MAGNETIC  TAPE 


PUNCHED  CA  RD 


DISK 


1. 


PURPOSE  and  UTILIZATION 


A.  Source  of  Data 
ALCOR1 

B.  Data  Input 

ALCOR  Data  Tape  (ADT) 


C.  '  Description 


jl  a.ioS\ 


X 


ALCTA.P  is  designed  to  obtain -ReS  data  on  waking  targets  (N8-and  WB) 

— — ~-s. 

and  on  multiple  radar  scattering  centers^(WB).  It  computes  «-LC  and-RC  -RCSyfor  up  to 
170  range  cells.  It  is  usually  run  every  0. 1  s  with  the  data  averaged  over  0. 1  s 

D.  Output 

1.  A  listing  of  RCS  data  'LC  and  RC)  for  up  to  60  gates. 

## 

2.  Plots  of  RCS  vs  relative  range  for  each  averaging  interval 
(optional).  This  is  a  non -coherent  Average  Pulse  Shape  (APS)  which  gives  the  relative 
position  and  intensity  of  radar  scattering  centers  (WB)  and  non -coherent  body  and  wake 
RCS  (NB  and  WB).  # 

3.  Punched  cards  containing  Alt  and  peak  RCS  over  a  pre-selected 
set  of  range  gates  (optional).  These  cards  are  edited  and  then  used  in  a  plotting  program 
to  produce  the  peak  wake  plot. 

4.  Plots  of  LC  and  RC  peak  wake  RCS  vs  Alt  to  aid  in  editing  cards 

for  final  plots.  .  . 


CW 


’Separate  listings  and  plots  are  produced  for  each  range  offset  for  WB  tapes  if  requested. 
##  The  range  span  is  determined  by  selecting  initial  and  final  gates. 


II. 


DESCRIPTION 


ALCTAP  computes  average  RCS  as  a  function  of  range  gate  and  time.  ALCTAP 

will  process  both  RC  and  LC  channels  in  one  run  for  the  printout,  punched  cards,  and 

peak  wake  plots,  but  will  only  produce  APS  plots  for  one  selected  polarization/run.  The 

2 

program  averages  in  m  and  then  converts  to  dbsm  for  printouts  and  plots. 

The  averaging  interval  and  skip  time  are  selected  by  the  number  of  pulses  to  be 
averaged  (INTAV)  and  the  number  of  pulses  to  be  skipped  (ISKIP).  Since  averaging 
interval  (s)  =  INTAV/PRF,  and  skip  interval  (s)  =  ISKIP/PRF,  the  averaging  interval 
and  skip  interval  wili  change  whenever  the  PRF  changes. 

Only  primary  pulses  (pulses  with  zero  range  offset)  are  included  in  INTAV, 
ISKIP,  and  PRF. 

For  wide  band  slaved  (WBS),  doublet  (DBLT),  and  slaved  doublet  (SDBLT)  wave¬ 
forms,  the  program  will  average  or  skip  all  inclusive  slaved  or  slaved  doublet  pulses 
with  the  same  range  offsets.  This  means  that  all  non-primary  pulses^  should  be  ignored 
when  averaging  and  skip  intervals  are  being  determined,  since  the  program  will  handle 
these  pulses  automatically. 

RCS  is  computed  as  follows: 

LC  RCS  =  XATBL(N)  +  40  log  R  +  XPPAGC  +  CONLC  -  POWERT 
RC  RCS  =  XATBL(M)  +  40  log  R  +  XOPAGC  +  CONRC  -  POWERT 

where 

XATBL(N)  is  obtained  by  indexing  the  LC  calibration  table  with  the  LC 
amplitude  values  obtained  in  the  ADT  data  record. 1 

XATBL(M)  is  obtained  by  indexing  the  RC  calibration  table  with  the  RC 
amplitude  values  obtained  in  the  ADT  data  record. 1 


Pulses  offset  in  range. 
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2 

XPPAGC  is  total  LC  attenuation  (db) 

2 

XOPAGC  is  total  RC  attenuation  (db) 

u  U 

CONLC  and  CONRC  are  calibration  constants  (db)  obtained  from 
Calibration  Record  Words  624  (NB  LC),  625  (NB  RC), 

627  (WB  LC),  and  628  (WB  RC) 

POWERT  (peak  transmit  power  in  dbw)  for  NB 
=  PWRCN  +  PWRSN  log  XPKPWR 

POWERT  for  WB 

=  PWRSN  +  PWRSW  log  XPKPWR 

where 

PWRCN  is  Calibration  Record  Word  620 
PWRSN  is  Calibration  Record  Word  621 
PWRCW  is  Calibration  Record  Word  622 
PWRSW  is  Calibration  Record  Word  623 
XPKPWR  is  ADT  Record  Byte  344 

R,  Az,  and  El  are  corrected  as  follows: 

R  -  IRANGE  +  TRBIAS  +  TTCOR  +  RRCOR  -  RCORF 

Az  =  IAZ  +AZBIAS 

El  =  IEL  +  ELBIAS  -  ECORF 

where 

IRANGE  is  uncori-cted  R 

TRBIAS  is  range  bias 

TTCOR  (transit  time  correction)  =  RR/c 

RRCOR  is  range  doppler  coupling  correction 

RCORF  is  tropospheric  refraction  correction 

IAZ  is  Az  encoder  angle 

AZBIAS  is  Az  bias  (Calibration  Record  Word  602) 

Called  KRCS  (LC)and  KRCS  (RC)  on  output  listing. 


1EL  is  El  encoder  angle 

ELBIAS  is  EJ,  bias* (Calibration  Record  Word  603) 

ECORF  is  tropospheric  refraction  correction 

Alt  is  computed  as  follows: 

Alt  =  (R2  +  R  2  +  2  RR  sin  El)5  -  R 
e  e  e 

where  Rr  =  radius  of  earth  (6378. 145  km) 

Before  processing,  the  main  program  checks  that  1TBAND  (tape)  =  IBAND 
(input).  This  determines  that  if  WB  data  is  requested,  WB  data  exists  on  the  tape 

requested. 
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III. 


OPERATION 


A.  Input 

Launch  time  (total  GMT  ms) 

Waveform  and  polarization  (APS  only) 

Averaging  interval  (pulses) 

Skip  interval  (pulses) 

Start  and  stop  range  gates  for  listing,  APS  plots,  and  peak  wake 
RCS  search 

First  and  last  pulse  nos.  of  processing  intervals 
No.  of  processing  intervals 
Scale  factors  for  APS  plots 

Glitch  remover  (only  used  when  site  has  serious  problem  with 
A/D  counter) 

Options  for  plotting,  punching,  and  deleting  non-primary  pulses 
from  output 

A  sample  input  is  shown  in  Appendix  A. 


CARD  1  (HO,  1215, 

IX,  A4) 

(Col. ) 

1-10 

ILNCH 

Launch  time  in  total  GMT  ms 

11-15 

NCELL1# 

Initial  gate  for  APS  plot  (1) 

16-20 

NCELL2# 

Final  gate  for  APS  plot  (170) 

21-25 

NBAND 

0  =  NB;  1  =  WB 

26-30 

I  POLAR 

0  =  LC  APS  only;  1  =  RC  APS  only 

31-35 

I  PLOT 

0  =  APS  plots;  1  =  no  APS  plots 

36-40 

ICELP1# 

Initial  gate  for  listing'  (46) 

41-45 

ICELP2# 

Final  gate  for  listing  (105) 

If  left  blank,  program  sets  to  indicated  value. 

Program  will  not  list  more  than  60  gates. 
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(Col.) 

46-50 

INTAV 

No.  of  pulses  in  averaging  interval 

51-55 

1SKIP 

No.  of  pulses  between  averaging  intervals 

i]  ij 

56-60 

1PEAK1# 

•rr+r 

Initial  gate  for  search  for  peak  wake  RCS  (54) 

61-65 

1PEAK2# 

Final  gate  for  search  for  peak  wake  RCS  (90) 

66-70 

NVALS 

No.  of  processing  intervals 

72-75 

T1TL 

Title  for  listing  and  plots 

CARD  2 

(2F10.3, 

3110) 

1-10 

DBB# 

Minimum  value  for  ordinate  of  plots  (-60  dbsm) 

11-20 

DBT# 

Maximum  value  for  ordinate  of  plots  (+40  dbsm) 

21-30 

IPKAD# 

A/D  count  limit  (130) 

31-40 

IPUNC 

0  =  punched  peak  wake  cards 

41-50 

1PRIME 

1  =  no  punched  cards 

0  =  All  pulses  are  output 

CARD  3  (6110) 

1  =  Primary  pulses  only  are  output 

1-10 

NSTART 

First  pulse  no.  of  initial  processing  interval 

11-20 

NSTOP 

Last  pulse  no.  of  initial  processing  interval 

21-30 

NSTART 

First  pulse  ro  of  second  processing  interval 

31-40 

NSTOP 

Last  pulse  no.  of  second  processing  interval 

41-50 

NSTART 

First  pulse  no.  of  third  processing  interval 

51-60 

NSTOP 

Last  pulse  no.  of  third  processing  interval 

Repeat 

Card  3  as 

necessary. 

#  If  left  blank,  program  sets  to  indicated  value. 

##Only  primary  pulses  used  to  determine  peak  wake  RCS. 
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B. 


Output 


LISTING 

Selected  input  parameters 

First  and  last  pulse  nos.  #  in  averaging  interval  (includes  primary 
and  offset  pulses) 

KRCS  (LC)  and  KRCS  (RC)## 

No.  of  pulses  averaged 

TAL,  GMT  total  s,  and  GMT  h,  min,  s,  and  ms 
R,  R,  range  offset,  Alt,  AGC  (dbsm)^ 

Average  RCS^  (LC  and  RC)  for  each  range  gate  selected  in 
1CELP1  and  1CELP2 

APS  PLOTS 

RCS  vs  relative  range  (m) 

PEAK  WAKE  PLOTS 
Peak  Wake  RCS  vs  Alt 

PUNCHED  PEAK  WAKE  DATA 

CARD  1:  Polarization  (A2),  bandwidth  (2\,A2),  Title  (2X,A4) 
CARD  2:  Alt(F10.3),  RCS(F10.3) 

A  set  of  /It  and  RCS  cards  are  produced  for  each  polarization. 

Sample  outputs  are  given  in  Appendix  B. 


#  Called  PR1  (start)  and  PRI  (stop)  in  listing. 

$$  Also  called  CONLC  and  CONRC. 

*  AGC  is  the  total  LC  or  RC  attenuation,  depending  on  the  polarization 
selected  for  APS  plots. 

**For  each  range  offset. 
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IV.  PROGRAM  LIMITATIONS 

NVALS  <  50  processing  intervals 

f  ICELP2  -  ICELP1]  ^60  gates 

Length  of  run  <  2000  averaging  intervals 

No.  of  range  offsets  on  tapes  during  averaging  interval  must  not  exceed  20 
(including  0  offset).  If  greater  than  20,  only  first  20  will  be  processed. 


V. 


PROGRAMMING 


A.  TAPALC  (see  Appendices  C  and  D. ) 

TAPALC  is  the  control  section  of  ALCTAP.  TAPALC  reads  the  input 
cards,  makes  the  call  to  READJS,  and  averages  the  data  returned.  TAPALC  separates 
the  pulses  according  to  range  offset,  searches  for  the  peak  response,  and  saves  this 
value  along  with  its  corresponding  altitude.  TAPALC  also  calls  the  subroutines  that 
plot  and  print  the  data. 


B.  HEDADT  (see  Appendix  E. ) 

Subroutine  HEDADT  unpacks  the  ADT  header  record  which  contains 
bandwidth,  reel  no. ,  WTR  no. ,  date  of  mission,  and  mission  designator.  The  call 
statement  is  HEDADT  [  ISIG,#  INBUF(l),  IEQM(l)  ]  . 

INPUT 

INBUF(l)  First  word  in  the  ADT  header  record^ 

OUTPUT 


IEQM(l) 

IZBAND 

(bandwidth:  1  =  WB, 

IEQM(2) 

ITREEL 

(reel  no. ) 

IEQM(3) 

ITWTR 

(WTR  no. ) 

IEQM(4) 

IMTH  \ 

IEQM(5) 

IDAY  > 

(Date  of  test) 

IEQM(6) 

IYR  ) 

IEQM(7-9) 

ITDESG 

(mission  designator) 

C.  READJS2 

The  first  call  to  subroutine  READJS  opens  the  file  and  reads  the  ADT 
header  ecord.  The  second  call  to  READJS  reads  the  ADT  calibration  record  and 


u 

Not  used. 

1  f  TNBUF  (2)  to  INBUF  (1803)  contain  the  remaining  words  in  the  record. 
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stores  the  values  in  a  buffer  area.  TAPALC  extracts  the  individual  calibration  values 
it  requires.  Each  subsequent  call  to  READJS  reads  an  ADT  data  record  consisting  of 
eight  ALCOR  pulses. 

D.  UNPACK2 

Subroutine  UNPACK  unpacks  the  raw  data  from  the  ADT,  and  translates 
it  into  a  format  usable  by  the  IBM  360/67  computer. 

E.  REFC  (see  Appendix  F.) 

The  tropospheric  refraction  correction  subroutine,  REFC,  is  based  on 

3 

tropospheric  refraction  tables  in  PPP-36.  A  modified  version  of  this  subroutine  is  now 
in  use. 

The  call  statement  is  REFC  (E,  R,  DEE,  DRR) 

E  Uncorrected  El  (must  be  between  0°  and  90°) 

R  Uncorrected  R  (ft) 

DEE  El  tropospheric  correction 
DRR  R  tropospheric  correction  (ft) 

The  corrected  values  to  be  computed  after  exiting  from  the  REFC 

routine  are: 

El  =  E  -  DEE 

R  (ft)  =  R  -  DRR 

F.  PLOTT 

Subroutine  PLOTT  plots  the  APS  and  peak  wake  RCS  plots. 
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APPENDIX  A 


ALCTAP  INPUT 

21600838  1  170  "1  0  0  46  1  05  10  0  5  4  90  1  1J05 

CARD  1 

00000  000000000000  000000000  0000  00000000  00000  0000  000000000  00000000  000000 
I  1  1  I  s  I  r  ■  1IH  II 11 II 11 II II II  IIIIII  11 11 14 IS  1111  K II Mil  II 31 II IS  II it  10  HIM'  41  lilt  II  III!  II 41  M  II  II  S1SIIISISI  SI  11  Mil  II  I] IMS II I' II  l| » 11 II  1)11  IS  II 11 11 II II 

in  iiiniiiii  u  iiiiii  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1  mn  i  m  1 1 1  m  1 1 1 1 1  m  1 1  i  iimn 
22  22222222222222222222222222222222222222222222222222222222222222222222222222222 
03333333  33333333333333333333333333333333333333333333333133333333333333333333333 
. Himmmmmmimmuuum  ummmmmm  mmmmmum 
5  5  5  5  5  5  5  5  S  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  b  S  5  5  3  5  5  5  5  5  S  5  5  5  5  5  SS5S5S5SS5555  555555555555559  5  5  5  5  5 
6066  6666666666666666666666666666606666  6666666666666666660666666666666666666666 
iniimiiiiniiii  iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiii 

8  0  6  8  8  8  6  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  B 8 1 0 8 8 0 0 U  1  8  8  6  0  8  6  8  8  6  0  8  8  8  0  8  1  0  8  8  8  8  8  8  8  8  8  8  0  8  8  8  8  8  8 

9999999690999999999999900999999399999909.9:99099999900099990999  9999999999990999 

.■tit  mm  h  i,  n  nil  nn  u  iii’iiisisiinnioiiiiMiissisiiiiistoii  iiiniismtiiiisifl  sisiMsssisisr.snimmiisisiimiioiuiiiri  isniin  mi 

initon 


-60.  40.  130  0  0 


CARD  2 


00000000  000000000  00000  0000  6600  0 0 0 0 0 0 00 0 0 0 0 0 0 » l 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 

I  1  3  4  3  I  I  I  1  ID  II 13 13 II  IS  It  13  till  Mil  II II 14  IS K If  II II 10 II  I!  1) II  IS  H II II 11 II «'  111) II IS  It 41 41 41  *1  SI  SI  13  SI  is  SI  SI  SI  SI  ID  II II  111!  IS  IS  It  II ID II II II 13 II  IS  II II II  till 

1 1 1 1 1  m  1 1  m  m  m  m  m  1 1 1 1  m  1 1 1 1 1  m  1 1  m  i  m  1 1  m  1 1  m  m  1 1 1 1 1  m  1 1 1 1  m  1 1 
22222222232222222222222222222222222222222222222222222222222222222222222222222222 
3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  J  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  1  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3 
iiimiiinimii  mini **< immmiimmmmmmmmmmimmm 
55555555555555555555S5SS5555S5S55SS55S5555555555SS555SS55555S5555S555555555555S5 
6666666  6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 66 6 6 6 6 6 6 6 6 66 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 f 6 6 6 6 6 6 6 6 6 6 6 6 
11111111111111111111111111111111111111111111111111111111111111111111111111111111 
888888888  888888608  888888888888888888888688888888888888688888880888888888888888 
99899999999999999999999999999999999999999999999999999999999999999999999999999999 

IHIIII  t  It '  i  II  u  II 11 II  I.’  ij  i:1  II II  11 1}  li  ISIS  II 1!  II K II 11 11 14  IS  It  11  If  11  till  4141  It  IS  till  44  IS  SO  SI  11 S)  S4  SS  SI  SI  SI  Hull  11  liil  IS  IIIIII  II II II II II II  ISIS  FI  II II II 
imllAl 


8209  8729 


CARL  3 

00000000  00000000000 000000 000 0800000000000100000000000 000000 060 00000000000000000 
i  i  1 1  s  i  i  i  i  mi  ii  mi  is  it  ini  iiiiii  ii  ii  II  is  it  unn  mi  minis  mi  »  n  k  it  ti  o  u  is  is  iinnii  si  sisistssst  sisisiwiiiiiiiiissiiriifiroii  n  mill  minim 

I  I  III  I  I  III  I  III  I  III  III  I  1  I  I  111  III  111  I  III  1  I!  Ill  I  1 1 1  I  111  I  111  11  I  I  I  I  I  I  III  III  I  I  I  I  III  I  I  I 

2222222  2222222222  2222222222222222222222222222222222222222222222222222222222222 
3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3 

5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  5  S  5  5  5  5  5  5  5  5  5  5  5 

66666666666666666666666666666666666666666666606666666666666666666666666666666666 
11111111111111111  1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1,1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 
8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8-8  8  8  8  8  8  0  8  8  8  8  8  8  8  8  8  8  8  1  8  8  1  8  8  8  8  8  8  8  8  8  8  8  8  8  '  8  6  3  1  8  1  8  8  8  8  8  8  8  8  8  6  8  6  8  8  8  8  8  6  1  8 
999999999  999999999  9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 0 9 9 9 9 9 9 9 9 9 9 9 9 9 9 S 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 9 

i  i  i  i  s  t  i  ■  i  ion  n  tin  is  it  ii  n  min  n  n  ii  is  is  ii  mi  n  n  n  nnisnn  ins  «n  min  is  mi  miss  si  ,<  sntssstsi  sisiioiiiifiiiisttimti  1 1  n  min  is  iiinirisi 

iniw 
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APPENDIX  B 
ALCTAP  OUTPUTS 


O 


4  m 

O  O  O'  ^  N  O 


m  O  —*  O'  lT(  00  00 

•  o  •  •  o  •  • 


O  O  cm  rg  4  n-  o 

•  00  •  •  o  •  • 

— <  ^  ^ 


Oommrgrgo^-  -  m  co  4 

a  •  •  n-  •  •  a  <  •  o  •  • 

lf\  "D  r\|  (\1  CO  -I  r(  f\J  13 

^  a  i  7  7  i  1  7  1 

4  •  U"l  •  •  P>-  «  •  GO  •  •O'*  • 

m  i/n  cn  *m  '■n  pfi  O  h  W  O 


X  pf 

*  J  fD  H  ffi 


X  —  I 

o  o 

-  UJ  N  -J  4  rg  U*l 

iu  in  in  •  •  N  • 
X  ^  -<  m  4 


r-  GO  p—  <"0  co  O'  oo 

•  GO  •  «  O  •  • 

r-t  4  H  O 


O  P-  CM  a  CM  4  O' 

•  co  •  •  o  •  • 

m  4  O'  ^  O' 


i-  -a 

^  I  ooeo'omH'Cm^oortiCoo 

—  m*.r-..oo.«o.« 

II  in  P-  rg  o 

H  m  I  mm  |  -  H 

X  — •  I  II  l  ,| 

o  o 

—  ujn-f*-h-<\jGOiy'h.moofvi'n® 
ujinm..p-.»co.-r~>.« 
X  v  a  m  r-t  o  o  ®  -  4  o 


H  pOOnhw 

c  m  »  «  p»  * 

o  o  O  4 

0C  I  I  m 


O  a  O'  n  m  h- 
•  GO  •  •  O  •  • 

m  f*'  <X)  <j-  & 

m  I  r-t  I 


Ol/l  i  .N  I  «(D  I  lO  •  • 

o  an-  -t  c  ia  •<  h  m  O' 


-  •  in  cm  o  o  m 

o  m  •  •  n*  • 

r-t  O  co  4 

I  I  m 


4  o  in  a  o 

mm  •  •  o  • 


~\j  m  m  m  c  m  m 

•  co  •  •  o  •  • 

r-t  4  Gf  m  4  a 


a  4  m  o  a  m  'o 
«  00  •  •  o  •  • 
o  m  a  40 


*-  D 

-UfANsSi 


I  a  o  O  CD  o  ^ 

i  *  c®  •  •  a  •  • 

I  O  4  r-t  mo 


•  cm  rg  m  n-  o 
rr  m  m  •  •  a  • 
cm  no  r- 


r-*  p*-  r-  >o  m 

m  •  •  a  • 

o  —  m  a  p- 


ao  m  o  m  4  m  4 

m  —  m  •  ,  <j  • 

m  r-t  n-  co  n 

m  a  ii  m 

a  l 

X  a  ao  a  4  co 

*  4  .  •  <o  • 

—  O  m  CO  P- 

Ui  O  H  I  m 

O  fM  I  I 

7  CO 

<  ®  m  ■o  co  m 

a  4  «  .  43  . 

4  oo  m 

m  —  r-t  |  _ 

nj  *-  i  l 

cm  a 

•  H  N  M4  IN  H 

a  *~  4  •  •  a  • 

«i  m  4  co  cm 


CO  CM  r-t  a  p^  ,r\  r-t 

•  GO  •«(>•« 

a  4  m  m  m 

i  —  m  -« m 

I  i  it 

DhDh^^N 

•  cd  •  •  a  •  • 

a  rg  (N  -O  O 

I  m  m  ml 

I  I  I 

fO  o  O  cm  in  a  p- 

•  oo  •  •  a  •  • 

O  co  O  a  co 


m  a*  co  p-  4  o  m 

•  p-  •  •  a  •  • 

r-t  4  d  r-  o 

r-l  I  m  I 

I  I  I 

Cmaomcocon- 

•  r-  •  •  a  •  • 

o  m  o  n-  a 

-<  m  |  -<  I 

I  I  I 

<n  n-  oo  o  cm  p*-  cm 

•  r*.  •  «  a  •  k 

n-  m  rg  am 


a  a  m  a  . 

4  •  • 

I  4  O 


)  a  43  O  4  -t  a  4 

*  •  n-  •  •  a  •  • 

3  m  -c  r-t  mm 


O  ■mrNOoOcom®'OOCN<j 
co  4  m  «*n-  •  •  co  •  •  o  •  • 
oo  mo  m  n  h  u>  t 

|  mm  mm  m| 

I  ll  II  I 

II 

44>oan-44mooO'a^M 


—  -i  i  i  i  l  ii  ti 

T  Ti 

-acoClN®<|m(flmff'0(t)^ 

►-•m««%n  ••'*>•  •a«« 

m  n  op  o  ao  m  m  rg  4m 

U.  7  mm  mm  mm  mm 

u.  I  1  I  I  ||  I  I 

O 

•  CNN4S  Og)\«pOn4H) 
rt  m  m  »  •  m  •  •  oo  ■  •  o  ■  • 

rg  ao  ^  co  rg  P-  O  m  o 


-•n-n'O'OaO'-i'OagjrgT* 

m»»o*«co».a«. 

O—  D  GO  rg  O  m  O  s  ® 

<OQ  rn  I  mm  mm  m  | 

®  O  I  II  II  I 

comOmcD<noo044»nmin 

mwm«*a»«x«,a». 

mm  o  rr>  <oo  4m  n-n- 

mor  CM  I  mm  mm  ml 

a-  i  ii  ii  i 

X  Crr^0  44ma4m4am 
it  4»»a*.h-«.a«. 

me*  mo  in  o  m  o  moo 

UJO  r-t  |  m  m  mm  m| 

O  CM  I  II  II  I 

7  Tt 

<  ®®CM'l^®'J0ni/\CO®M 

r<  4**a*«h-<«a** 

'M  oo  m  h-a  4  r- 

m  m  ml  mm  ml  m  | 

CM  I-  I  III  I 

CM  0C 

•  <^omcMamn-n-mcM<nO 
(M-4  •  I'D  •  iN  i  iCC  •  i 
com  4a  n-o  r-  o  ^  cr 

4*-  m  |  mm  mm  m| 

m  m  |  ||  |  |  | 

0C 

a  ammm4<naxammin 
-j  4»«a**n-»*o«« 

<  in  a  am  4m  rg  m 


i  mo  ui/iiiu  i/i  uiji/)  uu 
ujjiyajja!ujjaiuja; 


ii  inoiii/iutjmoumtjo 
Ui^rcUJJiyUJ-ircaJjn' 


*15635 


PM  STAHT-oTOP 

••at 


QWT 

I  14  8  483 


TAL  (SBC) 

1444  01 


ALTITUDK  KM) 
482.8 


PEAK  WAKE  RCS  CDBSM3 


Polarization 
Bandwidth 
Title 
LC  LIB  1J19 


CARD  1 

0000  000 0001 OOOOOOOOOOOOOOOOOOOUOOOO 0000 0000000000000000 0900000000 00000000000000 

I  2  J  4  5  f  r  a  3  10  ll  12  13  ^  IB  I7  1*  13  20  21  22  Z3  24  25  26  2?  2*  29  M  31  32  33  34  35  3E  3?  31 3S  40  41  42  43  44  4S  4G  47  48  49  50  SI  52  53  S4  55  SG  57  5*  S9  GO  el  G2  63  64  65  GG  67  G8  69  /O  T)  73  74  25  76  77  78  29  80 

111111,1  1 1 1 1  I  1 1 1 1 1 1 1  I  I  1 1  III  1  I  I  1 1 ’ 1 1  III  I  I  1  I  I  111  111  I  I  I  I  1 1  I  |  1  1  1  1  1  1  1  1  1  1  1  I  1  I  I  I  !  1  !  I 

21222  22222222222222222222222222222222222222222222222222222222222222222222222122 
3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  0  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3 .1  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3  3 


55503555555555555555555555555555555555555555555555555555555555555555555555555555 
0  (.  0  o  0  0  0  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  5  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  0  6  6  6  5  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  0  0  0  6  6 
7777777777777777777777777777777777777777777777777*77777777777777777777777777777 

p  0  8  6  8  8  8  6  8  1)  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  0  6  8  8  8  0  8  8  8  8  8  8  8  8  B  8  8  8  8  8  P  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  8  0 


Alt  RCS 

624,309  -2  .'971 


CARD  2 

00000000  ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo 

1  2  3  4  '  6  2  a  9  1011  121314  15161218  IS  202I  22  23  24  25  2G  22  21 29  30  31  32  33  34  35  36  3?  3(  3S  40  41  42  43  44  45  «  42  4*  49  50  SI  525354  5556  52  58  59  60  61  62  6364  65  66  67  68  69  70  71  22  73  24  75  76  //  78  7380 

1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  1  i  1  1  II  1  1  I  1  I  I  I  I  I  HI  111  111  II  111  111  111  111  I  1  111  1  i  1  1  l  1  l  l  m  m  |  i  i  i  | 

2  2  2  2  2  2  2  2  2  2  2  2  2  i  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  2  3  2  2  2  7  2  2  2  2  7  2  7  2  2  7  2  7  7  2  2  2  2  2  2  7  2  2  2  2  2  2  2  2 

333333  33333333333333333333333333333333333333333333333333333333333333333333333 

4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4  4 1\ 

55553555555555555555555555555555555555555555555555555555555555555555555555555555 
666  6666666666666666666666666666666666666666666666666666666666666666666666666660 
7  7  7  /  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7  7 


900099999  0999999  99399959999999999999999999999999999999999999999999999999990990 

12  3  ,  5  8  7  8  9  1011  •WM  'S  lb  7  18  18  28  2!  22  73  24  !5  26  27  28  88  30  31  J2  33  34  35  36  3/  38  33  40  41  42  4344  45  46  47  48  49  50  SI  52  53  54  55  56  57  58  59  60  61  62  63  64  65  66  67  58  68  70  71  72  73  74  75  76  7/ '8  38:' 

IBM  [  5061 1 
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APPENDIX  C 

TAPALC  PROGRAM  LISTING 


c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 

c 


Tn  BLE  PRECISION  XLNC H , DlOO 0 » T AL , TC TL , T ALBEG i TO TBEG 
DIMENSION  NSTARTI5C) , NS  TCP! 50) 

DIMENSION  XLCSUM!  20,170 l.XRCSUMI 20,170 1  ,1 AVLCJ 20, I  70), IAVRCI20.170 
*J8|,*lCC8' 1701  •XOCOSI  1701,  ILMfdl  JO),  IRcI°P(  1701 

2 •  I  LCPHA ( I 7C )  ,  TRCPHA (  1  70) ,  YPRNT1170) 

DIMENSION  IOLTI I7C) ,CBIAS ( 8  ) 

DIMENSION  XN6UFI  1 B03 ) , P I F A (  16 >  ,  UI F A  I  1 6 > ,  XKRCSI5) 

DIMENSION  IECMC  9)  .  I  TPESGI  3)  .XSRANGC  20)  ’ 

DIMENSION  I JCONT ( 20 ) 

iDnri^/!r?^ir^Fn!?°?),uz,,EL,,NcEx’,ppRcs,,cRs*iRANGE*,pKpwH'>« 

[D9I*  *l.  r  r  ’  J  -GAZ  .  I  NOEL,  IRb5«,t  I  PB85,  If  PROS,  I  2*06  i ,  1  2ACP.’ ,12  A0B3 

1  IHRS  ^MIN  J rPrGC* 1  HE  1 A  • NE  « A NC  .  N S W  ,  R  B  l  \S(R> ,  JSVPRl, 

HRS,  IMIN,  |  SEC,  I  MSEC,  ISUTI21 )  ,TRBI  AS,  I  ST  AT  1,  ISTAT2, 1ST  AH  ktju 

I  ALSW,  ISrSU.NdVH,  I  S  I  GNC  •  I  2  7B  1  2  ,  JCCJN ,  NBEG  ,  NE  NC  ,  I  T  ST  ,  NLMPR  I  XCP  AGC 
IlcS;^  »  I27  3H5,  I273B6,  I  2  7  38  7 ,  I  2  73BR  ,  I  MC  VP  ,  I  ML  VC  ,  I  UFF  S  T  , 

COMMON  /ICL 1/  JJ,TlTL,ALTI(2000)fYLCI2C0C),YKC(2000) 

IiniTl!unE.  !‘J:^AWP!n*IDAT,l,)»‘lLCPH^>l,»lDAT(l7l)),URCAMP(l), 

1  IDATI 3A1 ) ), (  IRTPHAI  1 ) ,  IOATI 51 1 ) ) 

ECU  IVALENCE  (  XNPUF  (  J. ) ,  INBO'F  (  l  )  ) 

2UF^?^KCrM™FQ^1!;IZBAND,’,lECMm’lTKEEL>’<lECMm,ITWTR), 

2  I  EOM  A  )  ,  I M  EH  ),(IEQM(5),I0AY  ),(IEQF(6),IYR), 

3(  IECMI  n.ITOESnm  )  ’ 

DATA  ZLC /  ’ LC  ’/,ZRC/’RC  ’/fZWB/’WB  *  /  ,  ZNB/  *  NB  */ 

DATA  IFKSTi/O/, IFRST2/C/ , IFRST?  TO/, IFRSTA/O/ 

DATA  ER  /6378. 1 A5/,D1000/1000.  00/ 

DATA  I  6  L ANK / '  ’/,IASTR/’*  / 


I  POLAR 
I  POLAR 
NBAND 
NBANO 
IPLOT 
I  PLOT 
IPONC 
IPUNC 
NEWA  = 
NEWA  = 


=  0  LEFT  CIRCULAR  DATA  REQUESTED 
=  1  "IGHT  CIRCULAR  DATA  REQUESTED 
=  0  NARROW  BAND  DATA  REQUESTED 
=  l  WIDE  BAND  CATA  REQUESTED 
=  C  SCA060  PLOTS 
=  l  NO  SC4060  PLOTS 
-  0  PUNCH  ALT.  VS  RCS  CARDS 
*  l  NO  PUNCHED  CARDS 


MISSION  FLOWN  BEFORE  15  CCT  70  (OLD  ATTN.) 
MISSION  FLOWN  AFTER  15  CCT  7C  (NEW  ATTN.) 


RE  <01 5, 1) ILNCH, NCELL I » NCELL 2 , NB AND , I  POL AR , I  PLOT , I CELP I . I CELP2 . 

JiKftJfiK!  i  T,Tl  'oa“*DBT'  ■ 

I  FORMAT! I  10, 1215,  1X,AA/2F10.3, 31 10/(61  1C) ) 

NNSETsISKIP 
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[ EOF  *0 
IERR=0 

CALL  READJSI INRUF, IECF, IERR) 
l S  IG=  1 

CALL  HEDADT  (I S IG , INBUF I U * lEQM ( 1) ) 

I T BAND* I  ZB AND 
NEWA-0 

IF!  IYR.GT . 70 )GC  TO  282 
IF  I  IYR.LT. 70 JGP  TO  283 
IFI IMTH.GT . 1C)G0  TO  282 
I F (  IMTH.LT .101^0  TO  283 
IF  l  IDAY.LT.  15)0,0  TO  283 

282  NEWA* l 

283  CONTINUE 
I ERR*0 

CALL  READJSI INPUF , IfcOF .  RR  ) 

C 

C  STORE  THE  DF51RED  CALIBRATION  VALUES 

C 

N*0 

DD  20  K*256 i 383 
N=N+1 

20  XATBL(N)=XNBUF (K ) 

C 

N  =  0 

00  22  K  =  5  1 2 »  52  7 
N=N+  l 

22  PIFA(N)=XNBUF«K ) 

N  =  0 

OU  23  K*528i 543 
N*N+ 1 

23  0IFA1N)*XNBUF<K) 

C 

PFSA=XNBUF(592) 

PSSA»XNBUF«593J 

0FSA=XNBUF(59A) 

0SSA*XNBUF(595) 

C 

ABIAS*XNBUF(60?) 

E8IAS*XNBUF(<j03I 
DEGCON*( 180. *. 0479369) /3L41. 59 
A2BIAS=DEGC0N*ABIAS 
ELBlASnOEGCON*FBlAS 
C 

N  =  0 

no  25  K=60A*6ll 

N*N+  1 

QBIAS(N)*XNBUF(K) 

25  RB I  AS ( N ) *Q8 l AS ( N  ) 

C 

PWRCN*=XNBUF(  620 
PWRSN*XNBUFI621) 

PWRCW’>XNBUF(622) 

PWRSW»XNBUF(623) 

C 

N*  0 
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on  27  K=624,62° 

N*N+1 

27  XKRCS!N)=XN8UF(K) 

PSSL=XN8UF(629) 

0SSL=XNBUF<630) 

JCCN*-  1 

IN0£X*0 

I TS  T  *  1 

JJ*0 

IPULS*0 

JX  =  20 

NPRMRY=0 

00  120  IJ=1,NVALS 
NBEG=NST  ART ( 1 J  > 

NM  =  1 

00  72  M=1,JX 
[ JCCN  T !  M  )  *0 
X  SR ANG ( M ) *0 . 

DO  72  K*i, 170 
IAVLC!M,K)*0 
IAVRC!M,K)*0 
XLCSUMM.K  )*0. 

XRCSUM!M,K}*0. 

72  CONTINUE 

3  JCCN=JC0N+1 

IF( JCON.EQ.9.0P.JCON.EO.O)GO  TO  97 
INDEX*! JCON-1)*9CO 
GO  TO  99 

97  JCCN= 1 

I NOEX*  0 

98  I EOF  =  0 
IERR*0 

CALL  REAOJS! INPUF, IEOF, IERR) 

IF! IERR.E0.1IGD  TO  103 

99  CALL  UNPACK 

XOFF ST* ( FLOAT! IOFF ST ) /2048. ) *14. 98962 5 

IF! IC0CE.EC.5 >XOPAGC*XPPAGC 

IF  < I  CODE. EG. M *OPAGC*XPPAGC 

IF !  IFRST2.EQ.  I IGC  TO  92 

I F {NCELL  1.LE.0 INCELL  1  =  1 

IF(NCELL2.LE.0)NCELL2*170 

IF! IPKAD.LE.O) IPKAD*130 

IF  ( ICELP2.GT.H.AN0. ICELPl.GT.OIGO  TO  93 
I C  EL  P 1 *46 
l C  EL  P  2  =  1 05 
GO  TO  95 

93  IF ( ( ICELP2-  ICEIP1+1  ).LE.60)GO  TO  95 
ICELP2*ICELPU59 
95  CONTINUE 

IF ! IPEAK l.GT.O.ANO. I  PE AK2 .GT. 0 ) GO  TO  96 
I  PE AK 1*5  4 
I P E  AK  2*90 
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<36  CONTINUE 
ZBAN=ZNB 

IF( ITBANC.EC.1)ZBAN=ZW8 
ZPOL=ZLC 

I F ( IPOLAR.EQ.l)ZPOL=ZRC 
RRUSE=-. 00943 

IF(ITBAND.EQ.1)RRUSE=-. 000115 
PWRUS 1=PWRCN 

IF(NBAND.EC.l)PWRUSl=PWRCW 

PWRUS2*PWRSN 

IFINBANO.EC.  1) PWRUS2  =  PWRSW 
CCNLC  =  XKRCS (  1) 

CCNRC  =  XKRCS<  2) 

I F ( NBANO.NE  .  1  ICO  TO  17 
CCNLC=XKRCS (4  ) 

CCNRC=XKRCS ( 5 ) 

17  CONTINUE 

I F ( ICODE.EC.5)rONRC*CONLC 
I F 1 ICOCE.EQ.7)rONRC-CONLC 

WRITE (6, 20C)ZPPL,ZBAN, ITREEl.TITL, ( IECM(  I  )  ,l=A,6) 

200  FORMAT <•  1TAP-ALC0R  POLAR  =  • , A2, AX, • BAND  =  •  ,  A2 , AX , • H EEL  NO.  *  * 
1 » I  5, •  TITLE  =  '  «  A  A  «  '  OATE  *  • , 1 2 , 1 / • . 1 2  ,  • / • , I  2 ) 
WRITE(6,208)NCrLLl. ICELP1, IPEAK1.CCNLC  ,N8AN0« IPLOT 
208  FORMAT! 'OCELL  BEGIN  (PLOT)  *  • , I  3 , 5X , • CEL L  BEGIN  (PRINT)  *  *,I3,5X 
1 , • CELL  BEGIN  (PEAK  )  *  • , l 3 , 5X , ' KRCS I LC >  *  ',  FB.3 
1  t AX  * ' I  BAND  *  • *  I  1 ,3X, ' I  PLOT  *  *,11) 

WRITEI6.21C)  NCELL2, ICELP2, IPEAK2.C0NRC,  IPOLAR 

210  FOKM A T ( • OCELL  FND  (PLOT)  *  * , I 3.5X , 'CELL  ENO  (PRINT)  *  '.I3.5X 
1 1 ' CELL  ENO  (PEAK  )  *  • , I  3 , 5X , ‘KRCS ( RC  )  *  ',  F8.3 

1  » AX  , ' I  POLAR*  • , I  1 ) 

WRJ'.  £(6,211)1  NTAV .  NNSET 

211  FORMAT!  'O',  12X,  MNTAV  »  • , I  3 , l BX , • I SK I P  =  •  .  I  3  > 

WRITE (6, 212) (NSTART( I  ) , NS  TOPI  I ), I*1,NVALS  ) 

212  FORMATCO  START  STOP  *,12X, 'START  STOP  *,12X, 'START 

1  STOP  *,12X, 'START  STOP  •  /(A(2X,I5i2X, 15,15X1)) 

XLNCH  =  OFLOAT( II NCH I/O  1000 
WRITE(6,21A)XLNCH 

21A  FORMAT ( *  0  LIFT  OFF  TIME  *  »,F1C.3) 

IF(  NBANO.NE.  ITPANOGO  TO  695 
I FR  ST2= 1 
92  CONTINUE 

620  IFINUMPRI .LT.NSTART ( I J ) )G0  TO  3 
I F (NUMPR I.GT.NSTART(IJ) )G0  TO  626 

I TST=1 
NSW  I T=  1 

IF( ICODE.EC.3.rR.ICODE.EG.7.0R.ICOOE.EC.2)GC  TO  600 
GO  TO  629 

600  NSTART( I J)=NSTART( I J ) ♦  1 

WRITE(6,631A  )  IJ,NSTART ( IJ) 

63 1 A  FORMAT!  'ONSTARTt ' , I  3, ' )  HAS  BEEN  CHANGED  TC  ',110) 

GO  TO  3 

628  IF( !C0DE.EC.3.CR.IC00E.EC.7.0R.IC0DE.EC.2)GC  TC  626 

629  I PULS= I  PUL  S  ♦  l 
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non 


c 


6  26  IF ( INT AV.EC. l.ANC. ISKIP.EC.O) IPULSM 
631  GO  TC  (660,661  ) ,NSWIT 


660  I T ST= 1 

IF ( IPULS.NE.  INTAV )G0  TO  10 
NSW  I T  =  2 
l T  ST  =  2 
I PULS=G 

IF(NNSET.EC.C)N'SWIT«1 

GO  TO  10 

661  IF ( IPULS.NE. NNSET1G0  TO  118 
I  PUL  Ss0 

NS  W I T  =  l 
1TST=1 
GO  TO  118 

10  CONTINUE 

I F (  IFRST4. EG.  I  )GC  TC  341 

I PRCLD= I PRF 

XOPOL  D  =  XOP  AGC 

XPPOLO=XPPAGC 

IFRST4=l 

CETERM INE  OTFSET  POSITION  OF  DATA 

341  CONTINUE 

!F(ABS(XOFFST-XSRANG( l) ).GT.l.)GO  TC  343 
MM*  l 

NPRMR Y=  l 

GO  TO  342 
343  00  34 j  K=2 , JX 

IF(ACS(XOFFST-XSRANG(K) 1.GT.1.1G0  TO  345 
MM  =  K 

GO  TO  342 
345  CONTINUE 
NM=NM*  l 

IF (NM.GT . JX  )G0  TC  19 
MM  =  NM 

XSRANG(MM)=XOFfST 

342  CONTINUE 
IJCCNT(MM)»IJCCNT(MM)*l 

IF (  IPOLAR.EQ.  I ) GC  TO  609 
IF(ABS(XPPOLC-XPPAGCJ.LE. 1. )G0  TO  610 
WRITE(6,6“?)NUMPRI,XPP0LC, XPPAGC 

622  FORMAT ( /2  -’CURRENT  PRI  =  ‘.IB,'  OLD  AGC  =  ',F5.l,'  CURRENT  AGC 
1=  •  ,  F  5  .  I  ) 

XPPOLO=XPPAGC 
GO  TO  610 

609  I F ( ABSIXOPOLC-XOPAGCI.LE. 1. )G0  TO  61G 
WRlTE(6,622)NUMPRI,X0P0iLC«X0PAGC 
XQPCLD=XCP AGC 

610  I F (  IPRF.EC. IPROLC )G0  TO  611 
WRITE (6,6  24  1NUMPR I , IPRCLD, IPRF 

624  FORMAT(/25X'CURRENT  PRI  =  »,I8  ,'  OLD  PRF  = 


* , I  5, '  CURRENT  PRF 


1  ',151 
I PRGLD= I PRF 
I FRS  T4  =  0 
611  CONTINUE 

I  TO r  =  ( 36  00* IHRS+60*IMIN+I SEC )*1000+IMSEC 

I T  AL= I TOT-ILNCE 

TOTL=DFLOAT< ITCT1/D10G0 

TAL  =  DFLUAT(  I  TAL I/O  1000 

ROOT* < I  ROOT/ <8 192. 0)1*14.969625 

RANGE* ( FLOAT (  1  RANGE )/ 20 48 00 0.  1*  14.9 89625+ TRBI AS*. 14989625 

T  TCCR-  ( R  ANGF / 299  776.  1  * <  RDOT / 1 000 . 1 

RANGE=RANGE+TTCOR 

rrcor=rruse*rdgt 

R ANGE= RANGE +RRCOR/ 1000. 

AZ*( I A2 *2*3 141.592653581/ (2.0** 17) 

XAZ=AZ*.057295P 
XAZ=XAZ+AZB IAS 

EL*(  I  EL *2* 31 *1. 592653581/1 2.0**171 
XEL=FL* .0572958 
XEL*XEL  +  ELB I  AS 

CALL  REFCIXEL, RANGE, ECCRF.RCORF) 

RNGF=RANGE-RCORF 
EL VF=XEL-ECORF 
RAOEL=ELVF*. 017453 

C AL  T  =  SORT ( RNGF**2  +  ER*ER  +  2.*RNGF*ER*S I N ( RADEL 1 l-ER 
RANGE*RNGF 

XTRR=4C.*AL0G1P< RANGE  1 
XPKPWR* I PKPWR 

POWERT  =  P  VIRUS  1  +  P  WR  US2*  ALOG  IQIXPKPWR) 

I F ( IFRST1.EQ.11GC  TO  11 
NPRBEG=NUMPR I 
ALTBEG=CALT 
T  ALBEG=  T  AL 
TOTBEG=TOTL 
Rl)OBEG  =  RCOT 
RANBEG=R ANGE 
POHBEG  =  POWER  T 
XHRB* I  HRS 
XMNB* I M I N 
XSCB* I  SEC 
XXSB= I  MSEC 
1HRB* IHR  S 
I MNB* I M I N 
I SCB= I  SEC 
I XSB= I  MSEC 
XPPBEG=XPPAGC 
XOPBEG=XCPAGC 
IFRST  1*  1 
11  CONTINUE 

NPREND=NUMPR  I 

DO  39  K=  1,  1  ZC 

IF(K.LTiNCELL1.0R.K.GT.NCELL2)C0  TO  39 

N*  II  CAMPIK1  +  1 

IFIN.O  „  I PK AC  1  GO  TO  34 

XLCCB (K )*XATBL( N 1 +X TRR+XP P AGC +CONLC-PO VER T 


XLCSUM!MM,K  )=XECSUM!MM,K  )  ♦  1 0.  ♦*  (  XLCDB!  K  ) /10. ) 

I AVLC!MH,K)=I AVLC(HM,K)+1 
34  M=IRCAMP!K)+1 

IF  (M.GE..  IPKACICO  TC  39 

XRC0H(K )  =  XATBL  <M l+XTRR  +  XOPAGC  +  CONRC-POWERT 
XRCSUMIMM.K  )  =  XRCSUH(MM,K >+10.**(XRCDB(K)/10. ) 

iavrc(km„k)=iavrc(mm,k)m 

39  CONTINUE 

40  GO  TO  (  199,19',  ,  ITST 

199  IFINUMPR I .NC.NSTOP!  IJIIGC  TO  118 

19  IF!NM.GT.JX)NM=JX 

IF!  IPRIME.LE.OtGC  TO  41 
NQ*  l 
NM  -  1 

41  CONTINUE 
NQ=  1 

IF(NPRMRY.EC.0)NC=2 

IF( NC.EQ.2. ANO. IPRIME.GE.l IGO  TO  79 

DO  60  LL=NC,NM 

00  42  K=t,17C 

IP(K.LT.NCELL1.0R.K.GT.NCELL2)G0  TC  42 
IF! IAVLC!LL,K).LE.O)IAVLC(LL,K  )  =  1 

IF ( XLCSUM!  LL.K) . L E . . OOOOCOO l ) XL C SUM  ILL ,K )=. 0000000 1 
XLCDB!K)=10.*ALOG1C(XLCSUM<LL,K)  /FLOAT! IAVLCILL.K) ) ) 

IF! lAVRC(LL.K) .LE . 0 ) I AVRC! LL ,K ) *1 

IF ( XRCSUM!LL,K).LE. .00000001) XRC SUM! LL,K) =.00000001 
XRCDB(K )  = 1C.*AL0G1C(XRCSUM(LL»K )  /FLO A T ( I  A VRC ( LL , K ) )  ) 

42  CONTINUE 

IF(LL.NE.1)GC  tq  55 
XLCPK=- 1CCC . 

XRCPK=- 1000. 

DO  44  K= IPEAKl, IPEAK2 
IF(XLCCB(K).GT.XLCPK)XLCPK=XLCDB(K) 

IF (XRCCB(K) .GT.XRCPK)XRCPK=XRC08(K) 

44  CONTINUE 
JJ=JJ+ 1 

AL  T I ( J J )  =  AL  TBEC 

YLC! JJ)=XLCPK 

YRCUJ  )  =  XRCPK 

IF ( J J .  EG . 20CC ) PO  TO  121 

58  XCUTHG=XPP8EG 
XNUMO=  I  JCONT  (  LI.  ) 

YSLVED  =  XSR ANG (LL  ) 

IF!  IPOLAR. EQ. 1 )XCUTBG*XUPBEG 

IBGG=IHLANK 

I F ( LL .EQ. 1 ) I BGP= I A  S  TR 

WR  ITEI6.56)  IHG'-,IHRB,  IMN6,  I  SCB  ,  I  XSB ,  TALBEG,  R  ANEEG  ,  YSLVED,  ALT  BEG  , 
1T0TBEG,X0UTBG»NPRBEG, NUMPRI , XNUMC , RDOBEG 
56  FORMAT (//6X»A1,'TIKE(GMT)  ' , I  2 ,  1 X ,  I  2 , 1 X , I  2 , • . • , I  3 , 8X , ’ T AL  SF9.3,' 
1  RANGE(KM)  •  , F « . 3 , 6X , • R .OFF  ST ( M )  =  • , F 9. 1 , 7X , *  HE  I GHT  ( KM) » ,F7. 1 ,/, 
23X, • T  S EC ' »F  1 C • 3 , 3  X  ,  •  AGC ( DBSM )  =  • , F5. 1 , 3X , » PR  I ( STAR T ) • , 2X, 1 5 , 2 X , 

3*  PRI ( STOP)  • ,2X, I  5, 3X, 'NO. PULSES  =  * ,  F 4 . 0 , 2 X ,  •  RDCT  (M/3EC)  = 

4F9. 3) 
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c 


NSWTCH=0 
I NDX  L  =C 


DO  52  K*l,  170 

IFIK.LT.  ICfcLPl.OR.K.Gr.  ICELP2SG0  TO  52 
IFINSWTCH.EQ. L ) GO  TO  51 
l  X  A  =K 
NSWTCH=l 

51  CONTINUE 
IX2  =  K 

I  OUT ( K ) =  K 
INCX  1=  INOX  L+  l 
IF (K.EC. ICELP2 )GC  TO  53 
I F ( INDXl.NE. 15  I  GO  TO  52 
53  NSWTCH=0 
INDX  1  =  C 

WRITEI6.59) ( IOUT(N),N:  1XA.1XZ) 

59  FORMAT! 20X, 'RANGE  GATES’ i4X *1516) 

WRITE(6*62) (XLrDB(N)*N*IXA,IXZ) 

62  F0RMATI29X, 'LC’,4X, 15F6.1) 

WRITE (6, 63) (XRCDB(N)*N*IXA*IXZ) 

63  F0RMATI29X, ’RC’,4X, 15F6.1) 

52  CONTINUE 

DO  47  K=  l  * l 70 

I F  (  IPOLAR.EQ.DGC  TO  49 

YPRNT(K)=XLCCB(K) 

GO  TO  47 

4-,  YPRNT(K)*XRCCB<K) 

47  CONTINUE 

IF (  IPLOT.NE.OirO  TO  60 

I  n  n I c* I 

XPOFFS=XSRANG(LL) 

48  CALL  PLOTTUNDIC  ,  YPRNT  (  l  )  *  NCELL  l ,  NC  ELL  2 ,  I  TB  AND ,  I  POL  A  R ,  NPRBEG  , 
INPREND  *  DBB  *  DBT  *  AL  TBEG*  YALBEG  *  XHRB*  XMNB  *  XSCB  *  XXSB  *  XPOFOS  *  XNUMO ) 

60  CONTINUE 

79  CONTINUE 
NM  =  1 

NP  RMRY=0 
DO  82  M=l,JX 
I JCCNT ( M ) =C 
XSRANG(M)*C. 

DO  82  K= l , 17C 
I AVLC ( M «  K )  =  0 
IAVRC(M.K)=0 
X  LC  SUM ( M  *  K )  =  C • 

XRC3UM(M,K)=C. 

B2  CONTINUE 

1FRST  4^0 
IFRSTDO 

118  IFINUMPRI.LT. NSTCPI IJ) )G0  TO  3 
IPULS=0 

119  I FR 3T  3  =  0 

120  CONTINUE 


o  o  o  o  o  o 


c 


121  CCNTINUE 

IF ( 1PUNC.EC. 1 )G0  TO  126 

WRITE!7,131)ZLCiZBAN,TITL 
131  FORMAT (A2*2XtA?t2X»A5) 

00  122  K*1,D,! 

122  WRITE! 7, 133JALTI <K ) .YLC(K) 

133  FORMAT ( 2F  1C . 3 )  / 

WR ITE ( 7»  131 ) ZRC.ZBAN, T  ITL  ( 

00  126  K  =  1 »  J  J 

126  WR  ITE! 7,  133IALTI <K ) ,YRC!K ) 

BANO t I  POLAR , NPRBEG. 
XSBtXPCFFStXNUMO) 


129  CALL  PLOT!  ( I ND  I C  t  YPRN f (1) * NCELL 1 . NCELL 2 .  I  T 

lNPRENO»OBB*CBTfAl.  TBEGfTALBEG«XHRB,XMNBtXSCBtX 


GO  TO  125 

103  WRITEI6, 107)NUMPRI 

107  FORMAT ( ’  OPAR I T Y  ERROR  ON  READ  AFTER  PR  I 


»  ,1  1C) 


680 

109 

695 

115 

125 


GO  TO  99 

WRITE! 6, 109)NUMPR I 
FORMAT ( *  ENC  OF  F ILE 
GO  TO  125 

WRlTE(6«115)NBAN0t ITBAND 


REACHEO  LAST  NUMPRI  VALUE 


110) 


FORMAT ( 

return 
ENO 


*  INPUT  BANO  =  'lie, 


BAND  ON  TAPE 


1 10) 


SUBROUTINE  PLOTT  ( INOIC, YPRNT, NCELL 1 , NCE LL 2 , I TB ANO , I  POL AR , KPRBEG , 

1NPREND,0BB,CBT,ALTBBG,TALBEG,XHRB,XHNB,XSCB,XXSB,XPCFFS,XNUHC) 


OOUBLE  PRECISION  TALBEG 

01  ME NS  ION  XPRNT(170)» YPKNT ( 1 ) *  XWCRO (5 ) 

COMMON  /  ICLZ/  JJ,TITL.ALTI(2000),YLC(2C00),YRC(2000) 

OAf A  XHORO/'NBLCNBRCHBLCHBRC’/fNTIME/O/fICNCE/O/ 


I  POL  AR  =  0  LEFT  CIRCULAR  DATA  REQUESTED 
I  POL  AR  =  1  RIGHT  CIRCULAR  OATA  REQUESTED 
;BANO  =  0  NARROW  BANO  OATA  REQUESTED 
IBANO  =  1  WIDE  BANC  OATA  REQUESTED 

Z ALBEG  =  T  Al BEG 
l  F  (  I  ONCE  .EC  .  1 )  r-0  TO  10 
CALL  STOIOV! ’ALCTAP’.5,0) 

ML  x 1 00 
MR  =  950 
MB  =  200 
MT  =950 

IF ( NCELL l.EQ.O)NCELL 1=1 
IF(NCELL2.EQ.0)NCELL2=170 

-XCELL  1  =  NCELL  1 
XCELL2=NCELL2 

IF(ABS(0BB).LE..C05)0BB=-60. 

IF! ABS( OBT ).LE..C05)DBT=  50. 

00  7  K=  1 « 1 70 
XPRNT ( K ) =K 
7  CONTINUE 
I CNCE=  1 
10  CONTINUE 
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11  I F  <  INDIC.EC. 1100  TC  13 
XCELL 1=70. 

XCELL2=0. 

13  CONTINUE 

CALL  LINEV  ( ML , ME , ML , M T  1 
CALL  LINEV  f ML , MT , MR , MT  1 
CALL  LINEV  I  MR, MT ,MR, MB  1 
CALL  LINEV  ( MR , MB , ML , MB ) 

CALL  YSCALV  < DPB , DB T , MB , 1 02 3-M! 1 

CALL  LINRV  (  2 , ML- 35 , ML -5 , ML *5 , DBB , DB T ,  1 C .  ,  l ,  1 , 3 , 1 0  1 
CALL  LINRV  <2, MR05, MR-5, MR  +  5,DBB,DBTf10., 1,0, 0,101 

IF! INDIC.EC.  1100  TO  16 
M  1  =  2 
M2-2 
Z  1  =  5. 

GO  TO  33 

16  M 1 =5 
M2  =  5 
Z  1  =  2. 

I F ( I NCt LL2-NCELL II. GT. 851  GO  TO  1A 
Zl=l. 

IA  CONTINUE 

IF (  I  TBANC.EQ.G1GC  TO  30 
XLRNG=< XCELL  1-1  .  1*.  177515 
XRRNG=< XCELL 2-1. 1*. 177515 
Z  2  =  1 . 

N  1  =5 
N2  =  5 

GO  TO  31 

30  XLRNG=!XCELL 1-1 , )*1A. 7929 
XRRNG* (XCOLL 2-1. )*1A. 7929 
Z2*  100 

N  1*2 
N2*2 

31  CONTINUE 

CALL  XSCALV  (XLRNG,XRRNG,ML,1023-MR» 

CALL  LINRV! 1 , MP- 20 , MB-5 ,MB+ 5, XL RNG , XRRKG, Z 2 , N 1 , N2 , A , 8 1 
33  CALL  XSCALV  ( XCELL 1 , XCE LL 2 , ML , 1 023-MR 1 
IF! INDIC.EQ. 1IG0  TC  3A 

CALL  l  INRV! 1 , MB- 20 » MB-5 » MB+5  , XC EL L l , XCELL2  , Z 1 , Ml , M2 , 3 , B 1 
CALL  LINRV! 1 , MT+20 , MT  +  5 , MT-5 , XCE LL l , XCELL2 , Z l , H 1 , 0 , 0, B 1 

GO  TO  36 

3A  CALL  LINRV! l,MT+20,MT  +  5, MT-5  , XCELL l ,  XCEL L2  ,  Z l , M 1 , M2 , 3 , 8 1 
36  CONTINUE 

BPRBEG=NPRBEC 

BPREND=NPRENP 

IF! ITBAND.EC.O.AND.lPOLAR.EQ.OlXUSF^XWCRDill 
IF! ITBAND.EQ.0.AND.IP0LAR,fcl.l>XUSE=XWCRD!2) 

IF!  ITBAND.EC. l.AND. IPOLAR.EC.O) XUSE  =  XWCRD ! 3 1 


c 


c 


c 


IH ITBANO.EC. l.AND. IPOLAR.EQ. I ) XUSE*XWCRD (A ) 

I F ( INOIC.EC>  I  )GG  TO  35 

CALL  R I TE2V( C.MB  +  250, IC23 ,90, 2 ,20,  1 , *  PEAK  WAKE  RCS  ( CB SM ) • , NL AST) 
CALL  RITE2V(ML+350,MB-50, 1023,0, 2,13, 1,'ALTITUOE  ( KM  )  •  ,NL AST ) 

CALL  R  I  TE2V  ( ML ♦ 8C0.MT* 5C,  1023,0,2  ,s  ,1  , XUSE.NLAST) 

CALL  RI TE2V(ML,MT+50, 1023,0,2,A,1,TI 7L.NLAST) 

JJJ=JJ-1 

53  00  57  1  =  1, JJJ 
J*  I  ♦  1 

IXl=NXV(ALTI(  II) 
iyi  =  NVV(VLC(  I  )  ) 

I F (  INDIC.EQ.3)  IY1=NYV< YRC<  I  ) ) 

I  X  2  =  NX V ( ALT  I  (J  I) 

I Y2=NY V ( YLC ( J  )  ) 

IF(IN01C.EC.3)IY2=NYV(YRC(J)) 

CALL  LINEV(  1X1 , I Y  1  *  1X2, IY2) 

57  CONTINUE 

GO  TO  ( 59,63, 50  ), INOIC 
63  I N  0 1 C  =  3 
I  POL  AR=  l 

GO  TO  59 


58  CALL  PLTNC 
GO  TO  60 

35  CALL  RITE2V  (0,MB*350,  1023,90,2,8,  i.  ,’RCS  DB  SM  ’  ,  Nl.  AS  T  ) 

CALL  RITE2V  ( ML ♦ 3 50 ,MB-5C ,  102 3 , 0 , 2 , 1 3 , 1  ,  * R ANGE  ME TE R S  • , NL AST ) 
CALL  RITE2V  (  ML  ♦  3  50 ,M  T +  50 , 1 02  3, 0 , 2 , 16 , 1 , » RA NGE  SAMPLE  NC.'.NLAST) 
CALL  RITE2V  ( Ml ♦ 800 ,M T ♦ 5C , 102 3 , 0 , 2 , A , 1 , XUSE , NL AST ) 

CALL  RI T  E2 V ( ML , MT  +  50, 1023, 0 ,2 , A , 1 , T I TL , NL AS T ) 

CALL  PR  I  NT V  (14,'PRl  S T AR T- S TOP  * , ML , MB- 150 ) 

CALL  PRINTV  (A, 'GMT  * , ML* 200, MB- 1 5 C ) 

CALL  PRINTV  (9,'TAL  < SEC ) '  ,ML *600 , MB- 1 50 ) 

CALL  PRINTV  <  12, • ALTI TUDE (KM » *,ML  +  600,MB- 150) 

CALL  PRINTV  120, 'RANGE  OFFSET  (M)  =  »  ,  ML ♦ 1 5  ,  M T- 1 5 ) 

CALL  PR  1 NTV (21, 'NO.  OF  PULSES  USED  *  ’ jML ♦ 1 5.MT-35 ) 

CALL  LABLV (XRO^ES, ML* 1 70 , M T- l 5 , 7 , 1 ,5) 

CALL  LABLV(XNUM0,ML*155,MT-35,5, 1,5) 

CALL  LABLV  ( BPR BE G , ML , MB- 1 70 , 5 , 1 , 5 ) 

CALL  LABLV  ( BPR ENU , ML , MB- 1 90, 5 , 1 , 5 ) 

CALL  LABLV  ( XHP B , ML ♦ 200 , MB- 1 70 , 2 , 1 , 2 ) 

CALL  LABLV  ( XMNB , ML ♦ 2 30 , MB- 170 , 2 , 1 , 2 ) 

CAI L  LABLV  ( X SCB , ML +  260 , MB - 170 , 2 , 1 , 2 ) 

CA_L  LABLV  ( XX^ B , ML ♦ 290 , MB- l 70, 3 , 1 , 3 ) 

CALL  LABLV  ( l A! BEG , ML +AOC , MB- l 70 , 7 , 1 , A ) 

CALL  LABLV  ( AL TBEG , ML ♦ 600 , M B- 1 70 , 6 , 1 , A ) 


DO  50  1=1,169 
J=  1  +  1 

IFd.LT.  OCELLI.  OR.  J.GT.NCELL2  )G0  TO  50 
I  X 1 =NX V ( X  PRNT ( I  )  ) 

I Y 1 =NYV ( YPKNT ( 1 )  ) 

IX2  =  NXV( XPRNT ( J)  ) 

I Y2  =  NYV ( YPRNT ( J)  ) 

CALL  L INEV(  IX l, IY 1, 1X2, I Y2) 

50  CONTINUE 


59  CALL  FRAME V ( C ) 

I F ( INDIC.EC.3IG0  TO  11 

60  RETURN 
ENC 


27 


APPENDIX  D 

TAPALC  FLOW  DIAGRAM 


APPENDIX  D-2 

f?S 

V 

determine 

FIRST  PROCESSING- 

interval 


initialize 

VARIABLES 


TO  READ  NEW 
V RECORD  / 


YES 


r READ  A 
\  RECORD 


PARITY 

ERROR 


ERROR 

iMESSAG-F 


UNPACK  \ 
/  UNPACK  A  > 
\  PULSE  / 
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APPENDIX  D-5 


ATTENUATION 

\  k  l 

\CHAN£I=S>  / 


32 


APPENDIX  E 

SUBROUTINE  HEDADT  PROGRAM  LISTING 


* 

CALL  HECADT  ilSlG.INBUF 

* 

START 

I S 1 G - =  l  UNPACK  THE 

ENTRY 

SPACE 

HECADT 

XISIG 

ECU 

A 

X  ICAL 

ECU 

5 

XiEGU 

EQU 

6 

BASE 

ECU 

SPACE 

12 

htDADT 

SAVE 

UA,l?),T,* 

8ALR 

12, C 

USING 

♦.BAST 

ST 

1 3 , SAVE  A  + A 

LA 

7 ,  S  A V*-  A 

ST 

7 , 8  <  0 . 1  3  > 

LR 

13,7 

SPACE 

LH 

SPACE 

XISIG, X IECU, 0<  15 

L 

8.0IXICALI 

ST 

8, TEMPI 

ST 

8.TEMP2 

SRL 

8,31 

ST 

8 , 0  I  X I  ECU  )  MBAND 

L 

8, TEMPI 

SLL 

8,  l 

SRL 

8,25 

ST 

SPACE 

8,A(XTECU»  MREEL 

L 

8  ,  A ( X I CAL ) 

ST 

8, T£M°l 

ST 

8 ,  T £ Mp2 

SRL 

8,  16 

ST 

8,8IX!ECU)  MR  TR 

L 

8, TEMPI 

SLL 

8,16 

SRL 

8 , 2  A 

ST 

8 , 1 2 ( X I E  QU I  MMNTH 

L 

8 , TEM°2 

SLL 

8 , 2  A 

SRL 

8 , 2  A 

ST 

SPACE 

8.16IXIECU)  MC  AY 

SR 

8,8 

IC 

8,8( X ICAL  ) 

ST 

8 , 2C I  X I  ECU  1  MYEAH 

MVC 

SPACE 

2A(9,XIEUU),9(XICAL) 

RETURN 

L 

1  '..SAVEA  +  A 

RETURN  (  1 A  »  I  2  )  »  T 

CNOP 

0 ,  A 

TEMPI 

DC 

F  ’  0  ’ 

TEHP2 

DC 

F  ’  0  ’ 

SAVE  A 

DC 

l BA ( *  1 

END 

, IECU) 

20  V.CRD  AOT  HEADER 


MISSICN  CES. 
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APPENDIX  F 

SUBROUTINE  REFC  PROGRAM  LISTING 


SUBROUTINE  REFCIE.R.DEE.ORR) 

DIMENSION  CEI  16 ,  fi  |  .0R(  16.8)  » EO  (  16)  «R0(8)  VERSION  6/16/70 

DATA  DE/0.0  .0.0  io.0  ,0.0  ,0.C  f0.0  ,0.0  ,D.D  , 

1D.0  ,0.0  ,0.c  , 0 . D  ,0.0  ,0.0  ,0.0  ,C.D  ,0.0313, 

20. 0  30 3, 0.02 92, 9.0287,0.0282, 0.02 72, 0.026,;, 0.0253, 0.025  3,0.0223, 
30.02  1A  ,0.0195,0 .0 171,0.0135,0.0075, 0. 0  , 0^0937, D.D8A8, 0.0770, 

AC. 0732, 0. D69A, 0. 0627, 0.0571, 0.0522,0. DA  80, 0.0A12, 0.0385, 0.0337, 
50. 0278,0.0205,0.0105, 0.0  ,0.1850,0. >520,0. 1 250 , 0 . 1 1 AC , 0 . 1050 , 

60. 090A, 0.0 795,0  0  708,0.06  36,0.052  3,0. DA 78  , C . 0A05 ,0 . 032 3 ,0 . 0229 , 
70. 01 1A ,0.0  ,°. 5310,0. 3070,0.2120,0. ie 30,0.  1600,0.1280,0. 1060, 

80.0899,9.0  7  80,0.0612,  0. 0550 , 0. DA55 , 0. 035A , 0 . 02A6 , 0. 01 20 , 0 . 0  , 

90.  7550, C .  3720, 0.2 ACC, 0.2020,0. 1750,0.  1 370 , 0 . 1 1 20 , 0 . D9A2 , 0. 08 1 1 , 
AO. 06 3 1,0 . 0566, 0.DA66, 0.036 1,0. 0250, 0.0 122, 0.0  , 0 . 9 1 20 ,0 . A  1 10 , 

80. 2560,0. 21 AC, 0. 18 AO, 0. 1520,0.1150, 0.0967, O.D83D»D.C6A3, 0.0575- 
CO. OA 72, 0.0365,0. 02 52, 0.0 122,0.0  , 0. 9700 , 0. A2D0 ,0 . 26DC , 0 . 2 200 , 

00.  1900,0.  1-5  60,0. 11 70, 0. 0980,0.98  AO,  0. 06  53,0.  D58A.D.0A7  8, 0.0  369, 
£0.0255,0.0129,^.0  / 

OATA  OR/  C.C,  C.C,  C.C,  0.0,  0.0,  0.0,  0.0,  D.C,  0.0, 


1 

0.0, 

0.0, 

0.0, 

0.0, 

o 

• 

o 

o 

• 

o 

c.o. 

22.6, 

21.5, 

20. A, 

19.9 

2 

19. A, 

18.5, 

17.6, 

16.8, 

16.1,  1 A . 8 , 

1 A  .  2  , 

13.2, 

12.0, 

10. A, 

8.6 

3 

7.7, 

67.3, 

57.9, 

50.  2, 

A7.D,  A  *', .  1  , 

39.3, 

35.  A, 

32.1, 

29.3, 

2  A .  8 

A 

22.9, 

19.7, 

16.3, 

12.7, 

9. A,  H.l, 

132.0, 

98.  5, 

77. A, 

69.7, 

63.2 

5 

52.9, 

AA.  7, 

38. A, 

33. A, 

26. A,  23.9, 

20.  1, 

16.  A, 

12.7, 

9. A, 

8.  1 

63AO.O, 

167.0, 

103. C. 

86.1, 

73. A,  56.7, 

A6.2, 

38.9, 

33.6, 

26.  A, 

2*.D 

7 

20.2, 

16.  A, 

I’. 8, 

9.5, 

8. 2 , A05.  0,170.0, 

lOA.O, 

86.3, 

73.6, 

56.8 

8 

A6.3, 

38.9, 

3">.  7, 

26.5, 

2A# 1»  20 • 3  » 

16.5, 

12.8, 

9.5, 

8.2, 

A21.D 

917  1.0, 

lOA.O, 

86.6, 

73.9, 

W.l  »  46,  A  i 

39.0, 

33.8, 

26.8, 

2A.  3, 

20.5 

A 

16.6, 

13. C, 

9.8, 

8.  A, 

446*0* 1 7 2 • C  * 

105. C, 

87.  A, 

7A.D, 

58.0, 

A6.6 

8 

39.2, 

3A.0, 

27. C, 

2  A .  6 , 

20.7,  16.7, 

13.0, 

10.0, 

8.AZ 

DATA  EC,RTCEG/n.ol, 

2.0, A 

.0,5. 0,6. 0,8 

•  D  ,  10. 

0,12.0 

,  1A  .D  , 

18. , 20 

• , 

12A . , 30. , AO. ,60. ,9C. ,5  7. 295  78/ 

DATA  R0/0.01, 10. ,30. ,60. , 2C0. ,ADO. , 1DDC. , 2000./ 

IFIR.LE.O.OIGO  TC  300 
RG-R/1.852C+C0 
00  100  I EC=  2,15 
I  =  1  7-  I  El) 

(FIE. GE. EDI  I  >  (GO  TC  120 
100  CONTINUE 
I  *  1 

120  DO  200  JR0*2 , 8 
J* 10-JRD 

IFIRG.GE.KCI J)  IGC  TO  220 
200  CONTINUE 
J*1 

220  IF  I J. EC. 8  I  GO  TC  3AC 

ZR -ALOG I RG/RC I J ) l/ALOGIROI J+l l/RDI J) ) 

IFIE.LE.O.OIGO  TC  320 

ZE* ALOG IE /ED  I  I )  I/ALOGIEOI 1  +  1) /EDI  I)) 

DE1*< (CEI 1  +  1,  J I -CEI I , J)  1*1 l.-ZRl  +  IDE I  I , J*  1 ) -OE ( 1 ,  J >  > * ZR ) * Z E 
0E2*( (LEI I ,  J  +  1  )-CE ( I , J ) )*( l.-ZEI+IDEI 1+1 «J+l)-DE(l,J+l))*ZE)*ZR 
DEE*CE  1+CE2+CEI I ,J) 

OR  1  * ( I  OR  I  1*1, J l-CRI I,  J) )♦( 1.-ZRI+ (DR  I  I , J+l) -DR  I  I  ,  J) )*ZR)*ZE 
OR  2* . ilRI l , J+  ll-CRI (,J)  )*(1.-ZE)+(CR(I+1,J+1)-DR(I,J+1))*ZE)*ZR 
DRR*(DR1+DR2+DR( I, J)) 

GO  TO  ADD 
300  OEE-O.G 
ORR  =  0 . 0 
GO  TO  A  DC 

320  OEE»OE< I , J )  +  (0r< 1, J  +  ll-OE I  1  ,J)  )*ZR 
ORR»DR(  1 ,  J  )  ♦ (OP ( I , J+l )-0R  (  I  ,  J )  )  *ZR 
GO  TO  ADD 

3 AC  0ELTME-ED1 I ) ) / I  EDI I  +  ll-EOI I ) ) 

DEE=DELT+(GE( 1+1, Jl-DE (1 , J) 1+OEI I , J) 

ORR  *  CEL  T  +  ( OR  I  1  +  1, J )-DR I  1 , J  )  l+ORI 1, J ) 

'iOO  ORR*ORR*.  3DA80-C3 
RETURN 
END 
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